home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / asbubble / frmmain.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-01-05  |  1.1 KB  |  34 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    ClientHeight    =   1395
  5.    ClientLeft      =   7365
  6.    ClientTop       =   6120
  7.    ClientWidth     =   1920
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    Picture         =   "frmMain.frx":0000
  12.    ScaleHeight     =   1395
  13.    ScaleWidth      =   1920
  14.    ShowInTaskbar   =   0   'False
  15. Attribute VB_Name = "frmMain"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. Option Explicit
  21. Private Sub Form_Click()
  22.     'align the bubble form to the assistant-like form
  23.     asBubbleSample.Top = frmMain.Top - asBubbleSample.Height + 200
  24.     asBubbleSample.Left = frmMain.Left
  25.     asBubbleSample.Show
  26. End Sub
  27. Private Sub Form_Load()
  28.     Me.Left = (Screen.Width - Me.Width) / 2
  29.     Me.Top = (Screen.Height - Me.Height) / 2
  30. End Sub
  31. Private Sub Form_Unload(Cancel As Integer)
  32.     Unload asBubbleSample
  33. End Sub
  34.